home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / FORUMPC.T < prev    next >
Text File  |  1991-02-16  |  8KB  |  218 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  :
  6.  : Entry in %ZCUSER.IDS for ForumPC: remote,password,handle
  7.  :   remote:   argument of "call" command
  8.  :   password: signon password (required)
  9.  :   handle:   name or number. Assumed equal to "%n1 %n2" if omitted
  10.  :
  11. wake:
  12.  ena -K!EZ pat;pat 0i \n;while !0 mput \r wait -f1
  13. norm:
  14.  ena -K!EZ p?0 handshake on;findq "\n%remote," %lib/%ZCUSER.ids
  15.  if ? split z0 , , "";if %z1 goto haveuser
  16.  pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
  17.  ife r nolog close;return
  18.  :
  19.  : K Configuration
  20.  :
  21.  : Require line feeds:           Yes
  22.  : Post prompts during newscan:  Yes
  23.  : Display time left at prompts: No
  24.  : Pause every screen:           No
  25.  : Use full-screen editor:       No
  26.  :
  27.  : Before changing "Ansi Graphics" from 'n' to 'y',
  28.  :
  29.  :  Prompt color:                White
  30.  :  Input color:                 White
  31.  :  Regular color:               White
  32.  :  Statistic color:             White
  33.  :
  34. haveuser:
  35.  if !%z2 sets z2 "%n1 %n2"
  36. forumpc:
  37.  display dumb
  38.  pat;sets s8 ""
  39.  pat 0c "Ansi Graphics?" "@mput n\r"
  40.  pat 1c "\n=>" "@mput %z2\r"
  41.  pat 2c "\n[>" "@mput %z2\r"
  42.  pat 3i "please: " "@mput %z1\r"
  43.  wait -f30;if n bye;ife r nolog close;return
  44.  display nodumb vt100 8bit
  45.  pat;pat 0i "News: Hit <SPACE> "
  46.  wait -f30;if n bye;ife r nolog close;return
  47.  if "H^Welcome to " split y " " " " "!";sets s8 %z2
  48.  pat;pat 0i "Main menu [?=help]:"
  49.  wait -f30;if n bye;ife r nolog close;return
  50. main:
  51.  pat;mput t\r
  52.  pat 0i "Main menu [?=help]:"
  53.  pat 1i "File menu [?=help]:"
  54.  wait -f30;if n bye;ife r nolog close;return
  55.  if 0 goto forumpcnoft
  56.  gosub .%lib/agelist.t;if as0<14 goto forumpcnlst
  57.  pat;mput *\r;pat 0i "Area # [?=list]:";wait -f40;if n bye;return
  58.  pat;mput ?\r;pat 0i \n;wait -f40;if n bye;return
  59.  ki;create -y %n7/%remote.lst
  60.  echof "%telno \T%s8";set s0 "";set ifs " ."
  61.  pat 0c ". (" "@sets z1 %y1;split z1;sets s0 %s0%z0,"
  62.  pat 1i "Area # [?=list]:";wait -f40;if n bye;ife r nolog close;return
  63.  split s0 , "";mput %z0\r
  64. forumpclstl:
  65.  pat; pat 0i "File menu [?=help]:" "l\r";wait -f30;if n bye;ife r nolog close;return
  66.  pat; pat 0c "CR=all, ?=help]:" "\r"
  67.  pat 1i "File menu [?=help]:";wait -f30;if n bye;ife r nolog close;return
  68.  pat;if %z1 split z1 , "";w;mput "*%z0\r";goback forumpclstl
  69.  if r w;echof " ";close
  70. forumpcnlst:
  71.  ki;create -+ %n9/ZC%d%ano.LOG
  72.  if !f%n8/%remote.ul goto forumpcnupl
  73.  : Upload files listed in <bbs>.ul as follows: area,filename.ext,description
  74.  : description size: ---------------------------------------
  75.  display inhibit;open -!g %n8/%remote.ul;display noinhibit
  76.  if !t goto forumpcdupl
  77. forumpculsk:
  78.  grab z1;if !t goto forumpcdupl
  79.  setc z9 \032;if Iz9,z1 nolog closetx;goto forumpcdupl
  80.  split z1 , , "";if !%z0||!%z1||!%z2 goback forumpculsk
  81.  pat;mput \b\b\b\b\b*%z0\r
  82.  pat 0c "No such area";pat 1i "File menu [?=help]:"
  83.  wait -f30;if n bye;ife r nolog close;return
  84.  if 0 goback forumpculsk
  85.  sets z4 %z1;sets z5 %z1;pat;mput \b\b\b\b\bU\r
  86.  pat 0c "arget filename:" "@mput \T%z4;setc z4 \&;mput \r"
  87.  pat 1c "area?" "y\r"
  88.  pat 2c "Description of upload:" "@mput \T%z2;mput \r"
  89.  pat 3c "Protocol menu [?=help]:" "Z\r"
  90.  pat 4c "receive ready."
  91.  pat 5c ".\r\n" "@if 4&&%z5 sleep 10;sz %z5;setc z5 \&"
  92.  pat 6c "to abort\r\n" "@if 4&&%z5 sleep 3;sz %z5;setc z5 \&"
  93.  pat 7i "File menu [?=help]:"
  94.  wait -f30;if n bye;ife r nolog close;return
  95.  goback forumpculsk
  96. forumpcdupl:
  97.  del %n8/%remote.ul
  98. forumpcnupl:
  99.  if !f%n8/%remote.dl goto dlnone
  100.  : download files listed in <bbs>.dl as follows: area,filename.ext
  101.  display inhibit;open -!g %n8/%remote.dl;display noinhibit;if !t goto dlerase
  102.  set s2 0;goto dlrdln
  103. dlrdnv:
  104.  echoc "Invalid download entry!";echoc \T%s1
  105. dlrdln:
  106.  setc z9 \032 grab s1 ife !t goto dldone;if Is1,z9 closetx goto dldone
  107.  split s1 , ", " "";ife "%z1<3||%z1>12||Jz1,*?()%" goback dlrdnv;if "f%dirrx%z1" goback dlrdnv
  108.  pat;mput *\r set z5 0 set z6 0 set z7 0
  109.  pat 0c \n "@set z8 0 set z9 0 pf40 ena -f40"
  110.  pat 1c "]:" "@set z9 1 pf1 ena -f1"
  111.  pat 2i "rz\r**\030" "@set z9 2"
  112.  pat 3c "Area #" "@set z8 1"
  113.  pat 4c "File" "@set z8 2"
  114.  pat 5c "Protocol" "@set z8 3"
  115.  pat 6c "?=List" "@set z8 4"
  116.  pat 7c "CR=Begin" "@set s2 1"
  117.  pat 8c "No such area" "@set z7 1"
  118.  pat 9c "File not found" "@set z7 1"
  119.  pat 10c "Abort this batch transfer?" "n\r"
  120.  pat 11c "Ready to start batch transfer?" "n\r"
  121. dlwait:
  122.  set z8 0 set z9 0 pf40 wait -f40
  123.  if !c||iz9,0 bye;ife r nolog close;return
  124.  if iz9,2 rz -kmp;goback dlrdln
  125.  ife iz7,1 goback dlrdnv;if iz8,1 mput %z0\r goback dlwait
  126.  if iz8,2 ife iz6,0 set z6 1 mput D\r goback dlwait;goback dlrdnv
  127.  ife iz8,3 mput Z\r goback dlwait;if iz8,0 mput \r goback dlwait
  128.  ife iz5,0 set z5 1 mput %z1\r goback dlwait;goback dlrdln
  129. dldone:
  130.  if is2,0 goto dlerase
  131.  pat;mput \r
  132.  pat 0c \n "@set z8 0 set z9 0 pf40 ena -f40"
  133.  pat 1c "]:" "@set z9 1 pf1 ena -f1"
  134.  pat 2c "?" "@set z9 1 pf1 ena -f1"
  135.  pat 3i "rz\r**\030" "@set z9 2"
  136.  pat 4c "Abort" "@set z8 1"
  137.  pat 5c "Ready" "@set z8 2"
  138.  pat 6c "DISCONNECT" "@set z8 3"
  139. dlbegin:
  140.  set z8 0 set z9 0 pf40 wait -f40
  141.  if !c||iz9,0 bye;ife r nolog close;return
  142.  if iz9,2 rz -mp;goback dlbegin
  143.  ife iz8,1 mput n\r goback dlbegin;if iz8,2 mput y\r goback dlbegin
  144.  ife iz8,3 mput n\r goback dlbegin
  145. dlerase:
  146.  del %n8/%remote.dl
  147. dlnone:
  148.  pat;mput q\r
  149.  pat 0i "Main menu [?=help]:"
  150.  wait -f30;if n bye;ife r nolog close;return
  151. forumpcnoft:
  152.  pat;mput b\r
  153.  pat 0i "Main menu [?=help]:"
  154.  pat 1i "Bulletin menu [?=help]:"
  155.  wait -f30;if n bye;ife r nolog close;return
  156.  if 0 goto forumpcnoms
  157.  pat;mput n\r
  158.  ife r w;set s5 0;pat 0c "\nNewscan mode: " "X\r"
  159. forumpcscan:
  160.  pat 1c "\nBulletin"
  161.  pat 2c$ "now? " "@w;echof \040;mput n\r"
  162.  pat 3c$ "]: " "@w;echof \040;mput \r"
  163.  pat 4l "\nNewscan complete!"
  164.  pat 5c "\nScanning " "@pat 10i \r"
  165.  pat 6c "\nExtended scanning:" "@pat 10i \r"
  166.  wait -f30;if n ki;bye;ife r nolog close;return
  167.  ife 4 goto forumpcmsgd;ife 5 split y1 " " "";else split y1 ":" ""
  168.  ki setn s5 s5+1;if r nolog closerx
  169.  if f%n9/%remote%s5.log create -+S %n9/%remote%s5.log
  170.  else create -+S %n9/%remote%s5.log;echof "%z1"
  171.  pat;goback forumpcscan
  172. forumpcmsgd:
  173.  ki;ife r nolog close;create -+ %n9/ZC%d%ano.LOG
  174.  pat;pat 0i "Bulletin menu [?=help]:"
  175.  wait -f30;if n bye;ife r nolog close;return
  176.  if f%n8/%remote.* expand %lib/fpcpost.t %n8/%remote.*
  177.  pat;mput q\r
  178.  pat 0i "Main menu [?=help]:"
  179.  wait -f30;if n bye;ife r nolog close;return
  180. forumpcnoms:
  181.  pat;mput e\r
  182.  pat 0i "Main menu [?=help]:"
  183.  pat 1i "E-Mail menu [?=help]:"
  184.  wait -f30;if n bye;ife r nolog close;return
  185.  if 0 goto forumpcnoem
  186.  set z0 "m"
  187.  if f%n8/%remote%z0.* expand %lib/fpcemail.t %n8/%remote%z0.*
  188.  if !c bye;ife r nolog close;return
  189. forumpcsmail:
  190.  pat;mput "n\r"
  191.  pat 0i \n;wait -f30;if n bye;ife r nolog close;return
  192.  pat;pat 0l "Title:"
  193.  pat 1i "E-Mail menu [?=help]:"
  194.  wait -f30;if n bye;ife r nolog close;return
  195.  if !0 goto forumpcdem
  196.  pat;set z0 "m";sets z1 %y2
  197.  ife r nolog close;ki;create -+S %n9/%remote%z0.log;echof %z1
  198.  pat 0c \r\n\r\n\r\n @w
  199.  pat 1l "Current msg:"
  200.  pat 2i "E-Mail menu [?=help]:"
  201.  wait -f30;if n bye;ife r nolog close;return
  202.  set z1 "";if 1 split y2 "#" ":" ""
  203.  ki;ife r nolog close;create -+S %n9/ZC%d%ano.LOG
  204.  if !%z1 goback forumpcsmail
  205.  pat;mput "d\r"
  206.  pat 0i "E-Mail menu [?=help]:"
  207.  wait -f30;if n bye;ife r nolog close;return
  208.  goback forumpcsmail
  209. forumpcdem:
  210.  pat;mput q\r
  211.  pat 0i "Main menu [?=help]:"
  212.  wait -f30;if n bye;ife r nolog close;return
  213. forumpcnoem:
  214.  pat;lput "\r\n%n1, press alt-N if you want to run the session manually.\r\n"
  215.  pat;pat 24cp "rz\r**\030" "@rz -mp";wait -F5;if !c bye;ife r nolog close;return
  216.  pat;mput g\r;pat 0c "Hang up now?" y\r;pat 1c "message to next user?" n\r
  217.  wait -F15;ife c bye;ife r nolog close;return
  218.